COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(OPS MOVSI 205000 ADDM 272000)
C00004 ENDMK
C⊗;
(OPS MOVSI 205000 ADDM 272000)


(LAP FOOCNT SUBR)
  (CAIE 7 (QUOTE SUBR))
  (CAIN 7 (QUOTE FSUBR))
  (JRST 0 TAG1:)
  (CAIE 7 (QUOTE LSUBR))
  (POPJ P)
TAG1:
  (PUSH P 1)
  (PUSH P 13)
  (HRRZ 13 0 6)
  (JUMPE 13 MAKCNT:)
  (HLRZ 1 0 13)
  (CAIN 1 (QUOTE COUNTER))
  (JRST 0 GOTCNT:)
MAKCNT:
  (MOVEI 1 0)
  (PUSH P 2)
  (MOVE 2 13)
  (CALL 2 (E CONS))
  (MOVEI 2 (QUOTE COUNTER))
  (CALL 2 (E XCONS))
  (HRRM 1 0 6)
  (MOVE 13 1)
  (POP P 2)
GOTCNT:
  (HRRZ 13 0 13)
  (MOVSI 1 1)
  (ADDM 1 0 13)
  (POP P 13)
  (POP P 1)
  (POPJ P)
NIL

(LAP FOONIT SUBR)
   (MOVE 6 1)
   (HLRZ 7 0 6)
   (HRRZ 6 0 6)
   (CALL 0 (E FOOCNT))
   (POPJ P)
NIL